home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 35 / Softdisk for Windows 35.iso / solitair / sol008.scm next >
Encoding:
Text File  |  1997-06-13  |  20.3 KB  |  456 lines
  1. $DOC
  2. SOLM                    ; driver tag - SOLitair Module
  3. 1                       ; major version
  4. 1                       ; minor version
  5. $EOC
  6.  
  7. $ABOUT
  8. Seahaven Towers         ; game title
  9. Todd Michael Lewis      ; author
  10. 1.00; version           ; version
  11. 3                       ; revision
  12. 1997, Softdisk Publishing ; copyright
  13. $EOC
  14.  
  15. $SECRETWORD
  16. DKIFLLIDUUE
  17. $EOC
  18.  
  19. $FILESPEC
  20. #RSDWINFilespec0014DAQAUNNHX
  21. $EOC
  22.  
  23. $CONFIG
  24. SOL9.HGH                ; name of high score file
  25. SOL9.HLP                ; name of help file
  26. 0                       ; starting score
  27. 52                      ; winning score
  28. 1                       ; points per card
  29. 0                       ; number of reshuffles
  30. 0                       ; number of draws
  31. 1                       ; number of decks
  32. 1                       ; card size
  33. 1                       ; type of scoring
  34. $EOC
  35.  
  36. ; all piles are defined within the LAYOUT chunk
  37. ; a float pile and extend pile should always be created within the program
  38. ; also, number of cards, next, card_list should be initialized in program
  39. $LAYOUT
  40.  
  41. ; tableau pile
  42. $PILE
  43. 14                      ; pile to go to when up arrow pressed
  44. 14                      ; pile to go to when down arrow pressed
  45. 10                      ; pile to go to when left arrow pressed
  46. 2                       ; pile to go to when right arrow pressed
  47. 5                       ; xpos of pile
  48. 10                      ; ypos of pile
  49. 32                      ; pile type
  50. 2                       ; pile spreading
  51. 1                       ; card drawing
  52. 10                      ; card dragging
  53. 1                       ; pile value (used for keyboard movement)
  54. 999                     ; target pile (???)
  55. 8                      ; number of cards for wide (visible) spread
  56. 14                      ; total number of cards to spread
  57. 30                      ; percentage of card visible in full spread
  58. 5                       ; percentage of card visible in partial spread
  59. 17930                   ; buildable flags (how pile reacts to other cards)
  60. 5                       ; number of cards to initially deal to pile
  61. 253                     ; seed card
  62. $EOC
  63.  
  64. ; tableau pile
  65. $PILE
  66. 13                      ; pile to go to when up arrow pressed
  67. 13                      ; pile to go to when down arrow pressed
  68. 1                       ; pile to go to when left arrow pressed
  69. 3                       ; pile to go to when right arrow pressed
  70. 68                      ; xpos of pile
  71. 10                      ; ypos of pile
  72. 32                      ; pile type
  73. 2                       ; pile spreading
  74. 1                       ; card drawing
  75. 10                      ; card dragging
  76. 2                       ; pile value (used for keyboard movement)
  77. 999                     ; target pile (???)
  78. 8                      ; number of cards for wide (visible) spread
  79. 14                      ; total number of cards to spread
  80. 30                      ; percentage of card visible in full spread
  81. 5                       ; percentage of card visible in partial spread
  82. 17930                   ; buildable flags (how pile reacts to other cards)
  83. 5                       ; number of cards to initially deal to pile
  84. 253                     ; seed card
  85. $EOC
  86.  
  87. ; tableau pile
  88. $PILE
  89. 3                       ; pile to go to when up arrow pressed
  90. 3                       ; pile to go to when down arrow pressed
  91. 2                       ; pile to go to when left arrow pressed
  92. 4                       ; pile to go to when right arrow pressed
  93. 131                     ; xpos of pile
  94. 10                      ; ypos of pile
  95. 32                      ; pile type
  96. 2                       ; pile spreading
  97. 1                       ; card drawing
  98. 10                      ; card dragging
  99. 3                       ; pile value (used for keyboard movement)
  100. 999                     ; target pile (???)
  101. 8                      ; number of cards for wide (visible) spread
  102. 14                      ; total number of cards to spread
  103. 30                      ; percentage of card visible in full spread
  104. 5                       ; percentage of card visible in partial spread
  105. 17930                   ; buildable flags (how pile reacts to other cards)
  106. 5                       ; number of cards to initially deal to pile
  107. 253                     ; seed card
  108. $EOC
  109.  
  110. ; tableau pile
  111. $PILE
  112. 15                      ; pile to go to when up arrow pressed
  113. 15                      ; pile to go to when down arrow pressed
  114. 3                       ; pile to go to when left arrow pressed
  115. 5                       ; pile to go to when right arrow pressed
  116. 194                     ; xpos of pile
  117. 10                      ; ypos of pile
  118. 32                      ; pile type
  119. 2                       ; pile spreading
  120. 1                       ; card drawing
  121. 10                      ; card dragging
  122. 4                       ; pile value (used for keyboard movement)
  123. 999                     ; target pile (???)
  124. 8                      ; number of cards for wide (visible) spread
  125. 14                      ; total number of cards to spread
  126. 30                      ; percentage of card visible in full spread
  127. 5                       ; percentage of card visible in partial spread
  128. 17930                   ; buildable flags (how pile reacts to other cards)
  129. 5                       ; number of cards to initially deal to pile
  130. 253                     ; seed card
  131. $EOC
  132.  
  133. ; tableau pile
  134. $PILE
  135. 16                      ; pile to go to when up arrow pressed
  136. 16                      ; pile to go to when down arrow pressed
  137. 4                       ; pile to go to when left arrow pressed
  138. 6                       ; pile to go to when right arrow pressed
  139. 257                     ; xpos of pile
  140. 10                      ; ypos of pile
  141. 32                      ; pile type
  142. 2                       ; pile spreading
  143. 1                       ; card drawing
  144. 10                      ; card dragging
  145. 5                       ; pile value (used for keyboard movement)
  146. 999                     ; target pile (???)
  147. 8                      ; number of cards for wide (visible) spread
  148. 14                      ; total number of cards to spread
  149. 30                      ; percentage of card visible in full spread
  150. 5                       ; percentage of card visible in partial spread
  151. 17930           ; buildable flags (how pile reacts to other cards)
  152. 5                       ; number of cards to initially deal to pile
  153. 253                     ; seed card
  154. $EOC
  155.  
  156. ; tableau pile
  157. $PILE
  158. 17                      ; pile to go to when up arrow pressed
  159. 17                      ; pile to go to when down arrow pressed
  160. 5                       ; pile to go to when left arrow pressed
  161. 7                       ; pile to go to when right arrow pressed
  162. 320                     ; xpos of pile
  163. 10                      ; ypos of pile
  164. 32                      ; pile type
  165. 2                       ; pile spreading
  166. 1                       ; card drawing
  167. 10                      ; card dragging
  168. 6                       ; pile value (used for keyboard movement)
  169. 999                     ; target pile (???)
  170. 8                      ; number of cards for wide (visible) spread
  171. 14                      ; total number of cards to spread
  172. 30                      ; percentage of card visible in full spread
  173. 5                       ; percentage of card visible in partial spread
  174. 17930                   ; buildable flags (how pile reacts to other cards)
  175. 5                       ; number of cards to initially deal to pile
  176. 253                     ; seed card
  177. $EOC
  178.  
  179. ; tableau pile
  180. $PILE
  181. 18                      ; pile to go to when up arrow pressed
  182. 18                      ; pile to go to when down arrow pressed
  183. 6                       ; pile to go to when left arrow pressed
  184. 8                       ; pile to go to when right arrow pressed
  185. 383                     ; xpos of pile
  186. 10                      ; ypos of pile
  187. 32                      ; pile type
  188. 2                       ; pile spreading
  189. 1                       ; card drawing
  190. 10                      ; card dragging
  191. 7                       ; pile value (used for keyboard movement)
  192. 999                     ; target pile (???)
  193. 8                      ; number of cards for wide (visible) spread
  194. 14                      ; total number of cards to spread
  195. 30                      ; percentage of card visible in full spread
  196. 5                       ; percentage of card visible in partial spread
  197. 17930                   ; buildable flags (how pile reacts to other cards)
  198. 5                       ; number of cards to initially deal to pile
  199. 253                     ; seed card
  200. $EOC
  201.  
  202. ; tableau pile
  203. $PILE
  204. 8                       ; pile to go to when up arrow pressed
  205. 8                       ; pile to go to when down arrow pressed
  206. 7                       ; pile to go to when left arrow pressed
  207. 9                       ; pile to go to when right arrow pressed
  208. 446                     ; xpos of pile
  209. 10                      ; ypos of pile
  210. 32                      ; pile type
  211. 2                       ; pile spreading
  212. 1                       ; card drawing
  213. 10                      ; card dragging
  214. 8                       ; pile value (used for keyboard movement)
  215. 999                     ; target pile (???)
  216. 8                      ; number of cards for wide (visible) spread
  217. 14                      ; total number of cards to spread
  218. 30                      ; percentage of card visible in full spread
  219. 5                       ; percentage of card visible in partial spread
  220. 17930                   ; buildable flags (how pile reacts to other cards)
  221. 5                       ; number of cards to initially deal to pile
  222. 253                     ; seed card
  223. $EOC
  224.  
  225. ; tableau pile
  226. $PILE
  227. 12                      ; pile to go to when up arrow pressed
  228. 12                      ; pile to go to when down arrow pressed
  229. 8                       ; pile to go to when left arrow pressed
  230. 10                      ; pile to go to when right arrow pressed
  231. 509                     ; xpos of pile
  232. 10                      ; ypos of pile
  233. 32                      ; pile type
  234. 2                       ; pile spreading
  235. 1                       ; card drawing
  236. 10                      ; card dragging
  237. 9                       ; pile value (used for keyboard movement)
  238. 999                     ; target pile (???)
  239. 8                      ; number of cards for wide (visible) spread
  240. 14                      ; total number of cards to spread
  241. 30                      ; percentage of card visible in full spread
  242. 5                       ; percentage of card visible in partial spread
  243. 17930                   ; buildable flags (how pile reacts to other cards)
  244. 5                       ; number of cards to initially deal to pile
  245. 253                     ; seed card
  246. $EOC
  247.  
  248. ; tableau pile
  249. $PILE
  250. 11                      ; pile to go to when up arrow pressed
  251. 11                      ; pile to go to when down arrow pressed
  252. 9                       ; pile to go to when left arrow pressed
  253. 1                       ; pile to go to when right arrow pressed
  254. 572                     ; xpos of pile
  255. 10                      ; ypos of pile
  256. 32                      ; pile type
  257. 2                       ; pile spreading
  258. 1                       ; card drawing
  259. 10                      ; card dragging
  260. 10                      ; pile value (used for keyboard movement)
  261. 999                     ; target pile (???)
  262. 8                      ; number of cards for wide (visible) spread
  263. 14                      ; total number of cards to spread
  264. 30                      ; percentage of card visible in full spread
  265. 5                       ; percentage of card visible in partial spread
  266. 17930                   ; buildable flags (how pile reacts to other cards)
  267. 5                       ; number of cards to initially deal to pile
  268. 253                     ; seed card
  269. $EOC
  270.  
  271. ;foundation pile
  272. $PILE
  273. 10                      ; pile to go to when up arrow pressed
  274. 10                      ; pile to go to when down arrow pressed
  275. 12                      ; pile to go to when left arrow pressed
  276. 14                      ; pile to go to when right arrow pressed
  277. 572                     ; xpos of pile
  278. 330                     ; ypos of pile
  279. 4                       ; pile type
  280. 0                       ; pile spreading
  281. 1                       ; card drawing
  282. 1                       ; card dragging
  283. 11                      ; pile value (used for keyboard movement)
  284. 8                       ; target pile (???)
  285. 0                       ; number of cards for wide (visible) spread
  286. 0                       ; total number of cards to spread
  287. 33                      ; percentage of card visible in full spread
  288. 5                       ; percentage of card visible in partial spread
  289. 26121                   ; buildable flags (how pile reacts to other cards)
  290. 0                       ; number of cards to initially deal to pile
  291. 241                     ; seed card
  292. $EOC
  293.  
  294. ;foundation pile
  295. $PILE
  296. 9                       ; pile to go to when up arrow pressed
  297. 9                       ; pile to go to when down arrow pressed
  298. 18                      ; pile to go to when left arrow pressed
  299. 11                      ; pile to go to when right arrow pressed
  300. 509                     ; xpos of pile
  301. 330                     ; ypos of pile
  302. 4                       ; pile type
  303. 0                       ; pile spreading
  304. 1                       ; card drawing
  305. 1                       ; card dragging
  306. 12                      ; pile value (used for keyboard movement)
  307. 8                       ; target pile (???)
  308. 0                       ; number of cards for wide (visible) spread
  309. 0                       ; total number of cards to spread
  310. 33                      ; percentage of card visible in full spread
  311. 5                       ; percentage of card visible in partial spread
  312. 26121                   ; buildable flags (how pile reacts to other cards)
  313. 0                       ; number of cards to initially deal to pile
  314. 241                     ; seed card
  315. $EOC
  316.  
  317. ;foundation pile
  318. $PILE
  319. 2                       ; pile to go to when up arrow pressed
  320. 2                       ; pile to go to when down arrow pressed
  321. 14                      ; pile to go to when left arrow pressed
  322. 15                      ; pile to go to when right arrow pressed
  323. 68                      ; xpos of pile
  324. 330                     ; ypos of pile
  325. 4                       ; pile type
  326. 0                       ; pile spreading
  327. 1                       ; card drawing
  328. 1                       ; card dragging
  329. 13                      ; pile value (used for keyboard movement)
  330. 8                       ; target pile (???)
  331. 0                       ; number of cards for wide (visible) spread
  332. 0                       ; total number of cards to spread
  333. 33                      ; percentage of card visible in full spread
  334. 5                       ; percentage of card visible in partial spread
  335. 26121                   ; buildable flags (how pile reacts to other cards)
  336. 0                       ; number of cards to initially deal to pile
  337. 241                     ; seed card
  338. $EOC
  339.  
  340. ;foundation pile
  341. $PILE
  342. 1                       ; pile to go to when up arrow pressed
  343. 1                       ; pile to go to when down arrow pressed
  344. 11                      ; pile to go to when left arrow pressed
  345. 13                      ; pile to go to when right arrow pressed
  346. 5                       ; xpos of pile
  347. 330                     ; ypos of pile
  348. 4                       ; pile type
  349. 0                       ; pile spreading
  350. 1                       ; card drawing
  351. 1                       ; card dragging
  352. 14                      ; pile value (used for keyboard movement)
  353. 8                       ; target pile (???)
  354. 0                       ; number of cards for wide (visible) spread
  355. 0                       ; total number of cards to spread
  356. 33                      ; percentage of card visible in full spread
  357. 5                       ; percentage of card visible in partial spread
  358. 26121                   ; buildable flags (how pile reacts to other cards)
  359. 0                       ; number of cards to initially deal to pile
  360. 241                     ; seed card
  361. $EOC
  362.  
  363. ; work pile
  364. $PILE
  365. 4                       ; pile to go to when up arrow pressed
  366. 4                       ; pile to go to when down arrow pressed
  367. 13                      ; pile to go to when left arrow pressed
  368. 16                      ; pile to go to when right arrow pressed
  369. 194                     ; xpos of pile
  370. 330                     ; ypos of pile
  371. 32                      ; pile type
  372. 0                       ; pile spreading
  373. 1                       ; card drawing
  374. 10                      ; card dragging
  375. 15                      ; pile value (used for keyboard movement)
  376. 8                       ; target pile (???)
  377. 0                       ; number of cards for wide (visible) spread
  378. 0                       ; total number of cards to spread
  379. 33                      ; percentage of card visible in full spread
  380. 5                       ; percentage of card visible in partial spread
  381. 19456                   ; buildable flags (how pile reacts to other cards)
  382. 0                       ; number of cards to initially deal to pile
  383. 241                     ; seed card
  384. $EOC
  385.  
  386. ; work pile
  387. $PILE
  388. 5                       ; pile to go to when up arrow pressed
  389. 5                       ; pile to go to when down arrow pressed
  390. 15                      ; pile to go to when left arrow pressed
  391. 17                      ; pile to go to when right arrow pressed
  392. 257                     ; xpos of pile
  393. 330                     ; ypos of pile
  394. 32              ; pile type
  395. 0                       ; pile spreading
  396. 1                       ; card drawing
  397. 10                      ; card dragging
  398. 16                      ; pile value (used for keyboard movement)
  399. 8                       ; target pile (???)
  400. 0                       ; number of cards for wide (visible) spread
  401. 0                       ; total number of cards to spread
  402. 33                      ; percentage of card visible in full spread
  403. 5                       ; percentage of card visible in partial spread
  404. 19456                   ; buildable flags (how pile reacts to other cards)
  405. 1                       ; number of cards to initially deal to pile
  406. 241                     ; seed card
  407. $EOC
  408.  
  409. ; work pile
  410. $PILE
  411. 6                       ; pile to go to when up arrow pressed
  412. 6                       ; pile to go to when down arrow pressed
  413. 16                      ; pile to go to when left arrow pressed
  414. 18                      ; pile to go to when right arrow pressed
  415. 320                     ; xpos of pile
  416. 330                     ; ypos of pile
  417. 32                      ; pile type
  418. 0                       ; pile spreading
  419. 1                       ; card drawing
  420. 10                      ; card dragging
  421. 17                      ; pile value (used for keyboard movement)
  422. 8                       ; target pile (???)
  423. 0                       ; number of cards for wide (visible) spread
  424. 0                       ; total number of cards to spread
  425. 33                      ; percentage of card visible in full spread
  426. 5                       ; percentage of card visible in partial spread
  427. 19456                   ; buildable flags (how pile reacts to other cards)
  428. 1                       ; number of cards to initially deal to pile
  429. 241                     ; seed card
  430. $EOC
  431.  
  432. ; work pile
  433. $PILE
  434. 7                       ; pile to go to when up arrow pressed
  435. 7                       ; pile to go to when down arrow pressed
  436. 17                      ; pile to go to when left arrow pressed
  437. 12                      ; pile to go to when right arrow pressed
  438. 383                     ; xpos of pile
  439. 330                     ; ypos of pile
  440. 32                      ; pile type
  441. 0                       ; pile spreading
  442. 1                       ; card drawing
  443. 10                      ; card dragging
  444. 18                      ; pile value (used for keyboard movement)
  445. 8                       ; target pile (???)
  446. 0                       ; number of cards for wide (visible) spread
  447. 0                       ; total number of cards to spread
  448. 33                      ; percentage of card visible in full spread
  449. 5                       ; percentage of card visible in partial spread
  450. 19456                   ; buildable flags (how pile reacts to other cards)
  451. 0                       ; number of cards to initially deal to pile
  452. 241                     ; seed card
  453. $EOC
  454.  
  455. $EOC
  456.